home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Languages / Yerk 3.64 / Float source / fp.ld < prev    next >
Text File  |  1993-05-07  |  1KB  |  48 lines
  1. \ Don't forget to use the latest FRONTEND and PATHLIST when compiling
  2. 0 -> interpret  \ vector interpret to (intrp)
  3. 0 -> path
  4. Forget @sarray
  5.  
  6. // ::Float source:fltMem
  7. // ::Float source:fpCode
  8. // ::Float source:fArgs
  9. // ::Float source:fValue
  10.  
  11. \ a temporary fix for system 7.0.1's and 7.1's nasty habit of changing pack4 calls
  12. \  What this does is save a pristine image of the floating point code
  13. \  range that contains pack4 calls to a CODE resource of ID=5. StdSave
  14. \  is redefined in frontend and will restore this code ontop of any
  15. \  changes the system may have done at document save time. Likewise,
  16. \  the install module will do the same if you are creating a standalone
  17. \  application that might have corrupted code.
  18.  
  19. ' f> -> 'f>
  20. string data
  21. new: data
  22. : saveCode { \ codeHndl -- }
  23.     5 getres CODE -dup
  24.     IF call RmveResource THEN
  25.     'f> ' flt! over - put: data
  26.     data @ 'type CODE w 5 nullOsStr call addResource
  27.     5 getres CODE -> codeHndl
  28.     codeHndl w 16 call setResAttrs
  29.     codeHndl call ChangedResource
  30.     word0 call curResFile call UpdateResFile ;
  31.  
  32. saveCode forget data
  33.  
  34. // ::Float source:fpi/o
  35. // ::Float source:fInterpret
  36. // ::Float source:elCode
  37. // ::Float source:fpExtra
  38. // ::Float source:Float
  39.  
  40.  
  41. // ::System source:PathList
  42. // ::System source:FrontEnd
  43.  
  44. 1 beep 1 beep 1 beep 1 beep
  45. READFP
  46. save yerkFP.com
  47. Become yerk
  48.